' This script demonstrates how to open a Photoshop document from the samples folder

Private Sub Command1_Click()

Dim appRef As Photoshop.Application
Dim docRef As Photoshop.Document
Dim fileName As String

Set appRef = CreateObject("Photoshop.Application")

fileName = appRef.Path & "\Samples\Dune.tif"

Set docRef = appRef.Open(fileName)

End Sub
